home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu005.dms / pu005.adf / Logging / DXCC / DX.Stat (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-01-19  |  15KB  |  279 lines
  1. '###########################################################################
  2. '#                                                                         #
  3. '#                  D X C C   Personal Statistic Keeper                    #
  4. '#                                 by                                      #
  5. '#                      Bj. Madsen  -+-  VE5FX                             #
  6. '#                              Feb. 1987                                  #
  7. '#                                                                         #
  8. '###########################################################################
  9. '
  10. 'This program is designed to keep track of your personal DXCC data, and will
  11. 'allow you to make displays or printouts formatted in a viriety of ways.
  12. '
  13. '                           IMPORTANT VARIABLES:
  14. '          P$ = Prefix of country              C$ = Name of country
  15. '         CS$ = Callsign worked                S$ = Status (wrk./conf.)
  16. '
  17. CLEAR 500 : MYCALL$ = "VE5FX"
  18. DIM CS$(330) : DIM S$(330) :  SET = 0          'SET - have we current date?
  19. LET N = 316                           'set value of N to number of countries
  20. '
  21. '----------------------------------------------------------------  Show.Menu
  22. SHOWMENU:
  23.    CLS:M$ = MYCALL$ + " - DXCC Statistics ":GOSUB BORDERS
  24.    LOCATE  9,25: PRINT "1.  Enter a new country."
  25.    LOCATE 10,25: PRINT "2.  List all DXCC data."
  26.    LOCATE 11,25: PRINT "3.  List countries worked."
  27.    LOCATE 12,25: PRINT "4.  List all countries needed."
  28.    LOCATE 13,25: PRINT "5.  Show statistics only."
  29.    LOCATE 14,25: PRINT "6.  Load data file from disk."
  30.    LOCATE 15,25: PRINT "7.  Save data file to disk."
  31.    LOCATE 16,25: PRINT "8.  End program."
  32.    LOCATE 20,20: INPUT"What is your choice ....";C
  33.    ON C GOSUB ENTERIT,LISTALL,LISTALL,LISTALL,LISTSTAT,LOADIT,SAVEIT,ENDIT
  34.  GOTO SHOWMENU
  35. '----------------------------------------------------------------  Enter.It
  36. ENTERIT:
  37.    IF SET=0 THEN GOSUB GETDATE: CHANGEDIT = 1
  38.    M$ = MYCALL$ + " - ENTER A NEW DXCC CONTACT: ":GOSUB BORDERS:LINE(50,67)-(550,82),3,B
  39.    LOCATE 10,15:INPUT"What is the callsign";CS$ : COLOR 1,0
  40.       FOR L = 2 TO LEN(CS$)
  41.         IF ASC(MID$(CS$,L,1)) < 58 THEN P = L - 1        'find position of number
  42.       NEXT L
  43.       RESTORE : X = 0
  44.     READIT:
  45.       READ P$,C$ : X = X+1 : FLAG = 1
  46.         IF P$ = "END" THEN NOTFOUND
  47.         IF LEFT$(P$,P) = LEFT$(CS$,P) THEN SHOWIT
  48.       GOTO READIT
  49.     SHOWIT:
  50.       LINE (50,125)-(550,145),3,B: GOSUB BIGWIPE
  51.       LOCATE 17,15: PRINT "Found: ";P$;" is the prefix for ";C$
  52.         IF CS$(X) = "" THEN M$ = "[No callsign Currently ON file]" :ELSE M$ = "[Currently ON file is: "+CS$(X)+"]"
  53.         LOCATE 18,20 : PRINT M$
  54.         GOSUB WIPE: LOCATE 10,15: PRINT "Do you want to <S>ave ";CS$;" or <P>ass";
  55.        GETKEY:
  56.         A$=INKEY$
  57.           IF A$ = "S" THEN CS$(X) = CS$ : GOTO QSL
  58.           IF A$ = "P" AND FLAG = 1 THEN READIT
  59.           IF A$ = "P" AND FLAG = 2 THEN READAGN
  60.          GOTO GETKEY
  61.        QSL:
  62.           GOSUB WIPE:LOCATE 10,15:PRINT "Has ";CS$;" been confirmed <Y>es or <N>o?";
  63.          GETQSL:
  64.            A$=INKEY$
  65.              IF A$ = "Y" THEN S$(X) = "o.k."    : GOTO DONE
  66.              IF A$ = "N" THEN S$(X) = "?"       : GOTO DONE
  67.             GOTO GETQSL
  68.        NOTFOUND:
  69.           LINE (50,125)-(550,145),3,B
  70.           GOSUB BIGWIPE: LOCATE 17,15: PRINT "The prefix ";LEFT$(CS$,P);" is not on file."
  71.           GOSUB WIPE: LOCATE 10,15: INPUT"What is the name of the country";CN$
  72.           RESTORE : X = 0
  73.        READAGN:
  74.           READ P$,C$: X = X+1: FLAG = 2           'read prefix & country name
  75.             IF C$ = "END" THEN CANTFIND
  76.             IF LEFT$(C$,4) = LEFT$(CN$,4) THEN SHOWIT
  77.           GOTO READAGN
  78.        CANTFIND:
  79.           GOSUB WIPE: LOCATE 10,15: PRINT "You will have to enter ";CS$;" the hard way" 
  80.           GOSUB BIGWIPE :LOCATE 10,15: INPUT"Press <ENTER> to return to menu ...";Q$
  81.        DONE:
  82.           RETURN
  83. '------------------------------------------------------------------- List.All
  84. LISTALL:
  85.    M$ = MYCALL$ + " - LIST DXCC DATA: ": GOSUB BORDERS: LINE (50,67)-(550,82),3,B
  86.    LOCATE 10,15:INPUT"List to <P>rinter or <S>creen...";Q$
  87.    IF LEFT$(Q$,1)="P" OR LEFT$(Q$,1)="p" THEN PRINTIT
  88.    M$ = "":GOSUB BORDERS
  89.      LOCATE 2,4:PRINT TAB(3)" No. ";TAB(10)" Prefix: ";TAB(27)" Country: ";TAB(57)" Worked: ";TAB(69)" Status:"
  90.        LET X = 1: WK = 0: NC = 0 : RESTORE
  91.     BIGLOOP:
  92.        LOCATE 6,2 : L = 0
  93.     LOOPREAD:   
  94.          READ P$,C$
  95.            IF P$ = "END" THEN THATSALL
  96.             IF C=2 THEN GOSUB SHOWLINE   : L = L + 1
  97.             IF C=3 AND CS$(X) <> "" THEN GOSUB SHOWLINE  : L = L + 1
  98.             IF C=4 AND CS$(X) = "" THEN GOSUB SHOWLINE   : L = L + 1
  99.            IF CS$(X) <> "" THEN WK = WK + 1              'stations worked
  100.            IF S$(X) = "?"  THEN NC = NC + 1              'stations not confirmed
  101.          X = X + 1
  102.          IF L = 15 THEN GOSUB WAITABIT : LINE (11,38)-(605,180),0,BF :IF A$="M" THEN RETURN :ELSE BIGLOOP
  103.        GOTO LOOPREAD
  104.        THATSALL:
  105.          PRINT " ":PRINT TAB(30)STRING$(45,"=");
  106.          PRINT TAB(30)"Total countries worked ........ ";WK;"/";(X-1)
  107.          PRINT TAB(30)"Total countries confirmed ..... ";WK-NC
  108.          PRINT TAB(30)"Total countries still needed .. ";N-WK
  109.         GOSUB WAITABIT
  110.         RETURN
  111.      PRINTIT:
  112.        GOSUB WIPE:LOCATE 10,15:INPUT"Make sure printer is ready and press <ENTER> ...";Q$
  113.        LET X = 1: WK = 0 : NC = 0 : RESTORE
  114.          OPEN "PRT:" FOR OUTPUT AS #1
  115.          PRINT #1,CHR$(27)"[""1""m"
  116.          PRINT #1,"DXCC Data for: "MYCALL$
  117.          PRINT #1,"    Dated: "TODAY$
  118.            IF C=2 THEN PRINT #1,"[All DXCC Data:]"
  119.            IF C=3 THEN PRINT #1,"[Countries Worked:]"
  120.            IF C=4 THEN PRINT #1,"[Countries Needed:]"
  121.          PRINT #1,CHR$(27)"[""22""m"
  122.          PRINT #1,CHR$(27)"[""4""w"
  123.          PRINT #1,STRING$(78,"=")
  124.          PRINT #1,TAB(4)"No.";TAB(11)"Prefix:";TAB(30)"Country:";TAB(60)"Worked:";TAB(71)"Status:"
  125.          PRINT #1,STRING$(78,"=")
  126.        LOOPREAD2:
  127.           READ P$,C$
  128.             IF P$ = "END" THEN THATSALL2
  129.               IF C=2 THEN GOSUB PRINTLINE
  130.               IF C=3 AND CS$(X) <> "" THEN GOSUB PRINTLINE
  131.               IF C=4 AND CS$(X) = "" THEN GOSUB PRINTLINE
  132.             IF CS$(X) <> "" THEN WK = WK + 1
  133.             IF S$(X) = "?"  THEN NC = NC + 1
  134.             X = X + 1
  135.           GOTO LOOPREAD2
  136.        THATSALL2:
  137.           PRINT #1," ":PRINT #1," ":PRINT #1,STRING$(70,"_")
  138.           PRINT #1,TAB(30)"Total countries worked ........";WK;"/";(X-1)
  139.           PRINT #1,TAB(30)"Total countries confirmed .....";WK-NC
  140.           PRINT #1,TAB(30)"Total countries still needed ..";NC
  141.           PRINT #1,CHR$(27)"[""3""w"
  142.           CLOSE #1
  143.         RETURN
  144. '----------------------------------------------------------------- List.Stat
  145. LISTSTAT:
  146.    M$= MYCALL$ + " - DXCC Statistics: ":GOSUB BORDERS
  147.    WK = 0 : NC = 0
  148.    FOR X = 1 TO N
  149.      IF CS$(X) <> "" THEN WK = WK + 1
  150.      IF S$(X) = "?"  THEN NC = NC + 1 
  151.    NEXT X
  152.         LOCATE  8,15: PRINT "DXCC Data for ";MYCALL$;" dated ";TODAY$;":"
  153.         LOCATE 10,15: PRINT STRING$(60,"="):PRINT
  154.         PRINT TAB(30)"Total countries on file ....";N
  155.         PRINT TAB(30)"Total countries worked .....";WK
  156.         PRINT TAB(30)"Total countries confirmed ..";WK-NC
  157.         PRINT TAB(30)"Countries left to work .....";N-WK
  158.      GOSUB WAITABIT
  159.    RETURN
  160. '------------------------------------------------------------------- Load.It
  161. LOADIT:
  162.    LET N = 1                                    'reset counter to start
  163.    M$= MYCALL$ + " - DXCC Statistics: ":GOSUB BORDERS
  164.    LOCATE 13,20: PRINT"Loading DXCC data from disk:": COLOR 1,0
  165.    OPEN "I",#1,"DXCC.DAT"
  166.       INPUT #1,TODAY$
  167.      WHILE NOT EOF(1)
  168.         INPUT #1,CS$(N)                          'callsign worked
  169.         INPUT #1,S$(N)                           'status {confirmed?}
  170.         LET N = N + 1
  171.      WEND
  172.         LET N = N - 1                            'reset counter
  173.    CLOSE : COLOR 1
  174.    RETURN
  175. '------------------------------------------------------------------- SAVE.IT
  176. SAVEIT:
  177.    M$ = MYCALL$ + " - DXCC Statistics: ":GOSUB BORDERS:LINE(50,67)-(550,82),3,B
  178.    IF TODAY$ = "" THEN LOCATE 10,15:PRINT"DANGER!!!     No data on file!":GOSUB WAITABIT:RETURN
  179.    LOCATE 10,15: PRINT "Saving DXCC data to disk: ":COLOR 1,0
  180.    OPEN "DF1:DXCC.DAT" FOR OUTPUT AS #1
  181.       PRINT #1,TODAY$
  182.         FOR X = 1 TO N
  183.            PRINT #1,CS$(X)                       'callsign worked
  184.            PRINT #1,S$(X)                        'status {confirmed}
  185.         NEXT X  
  186.     CLOSE #1
  187.     SAVEIT = 1
  188.  RETURN
  189. '------------------------------------------------------------------ End.It
  190. ENDIT:
  191.    IF SAVEIT = 1 OR CHANGEDIT = 0 THEN END
  192.    M$ = "END OF PROGRAM":GOSUB BORDERS
  193.    LOCATE 10,15:PRINT"Changes have been made to data since the last Save..."
  194.    GOSUB WAITABIT
  195.   RETURN
  196. '------------------------------------------------------------------ Get.Date
  197. GETDATE:
  198.    M$ = "Open a new DXCC file ":GOSUB BORDERS:LINE (50,67)-(550,82),3,B
  199.    LOCATE 10,15: INPUT"What is today's date <07 Feb 87> ";TODAY$
  200.    SET = 1
  201.   RETURN
  202. '------------------------------------------------------------------ Borders
  203. BORDERS:
  204.    CLS:LINE (0,0)-(640,5),3,BF : LINE (0,0)-(10,200),3,BF
  205.    LINE (607,0)-(617,200),3,BF : LINE (0,181)-(617,186),3,BF
  206.    LINE (0,30)-(640,35),3,BF   : PAINT (20,10),2,3 : PAINT (20,33),1,3 
  207.    COLOR 3,2 : LOCATE 3,25: PRINT M$ : COLOR 1,0
  208.  RETURN
  209. '--------------------------------------------------------------- Show.Line
  210. SHOWLINE:
  211.    PRINT TAB(3)X;"....";TAB(12)P$;TAB(27)C$;TAB(57)CS$(X);TAB(70)S$(X)
  212.   RETURN
  213. '--------------------------------------------------------------- Print.Line 
  214. PRINTLINE:  
  215.    PRINT#1,X;"....";TAB(13)P$;TAB(27)C$;TAB(57)CS$(X);TAB(70)S$(X) 
  216.   RETURN 
  217. '------------------------------------------------------------------- Wipe
  218. WIPE:
  219.    LOCATE 10,15 : PRINT STRING$(50," ") : RETURN
  220. '----------------------------------------------------------------- Big.Wipe
  221. BIGWIPE:
  222.    LOCATE 17,15 : PRINT STRING$(50," ")
  223.    LOCATE 18,15 : PRINT STRING$(50," ") : RETURN
  224. '--------------------------------------------------------------- Wait.a.Bit       
  225. WAITABIT:
  226.    LOCATE 22,15 : PRINT "Press any key to continue or <M> for Menu ....";
  227.   GOAGAIN:
  228.      A$ = INKEY$ : IF A$ = "" THEN GOAGAIN
  229.      RETURN
  230. '--------------------------------------------------------- Data.Begins.Here      
  231. '
  232. DATA A22,BOTSWANA,A3,"TONGA, Republic of",A4X,OMAN,A4,BHUTAN,A6X,UNITED ARAB EMIRATES,A71,QUATAR,A9X,BAHRAIN,AP,PAKISTAN,BV,TAIWAN
  233. DATA BY,CHINA,C2,"NAURU, Republic of",C3,ANDORRA,C5,THE GAMBIA,C6,BAHAMAS,C9,MOZAMBIQUE,CE,CHILE,KC4,ANTARCTICA,CE0A,EASTER ISLAND
  234. DATA CE0X,SAN FELIX,CE0Z,JUAN FERNANDEZ,CM-CO,CUBA,CN,MOROCCO,CP,BOLIVIA,CR9,MACAO,CT,PORTUGAL,"CU,CT2",AZORES IS.,CT3,MADEIRA IS.
  235. DATA CX,URUGUAY,D2-3,ANGOLA,D4,"CAPE VERDE, Republic of",D6,COMOROS,DA-DL,"GERMANY, Fed. Republic of",DU,PHILLIPINES IS.,EA,SPAIN
  236. DATA EA6,BALEARIC IS.,EA8,CANARY IS.,EA9,CEUTA & MELILLA,EI,IRELAND,EL,LIBERIA,EP,IRAN,ET,ETHOPIA,F,FRANCE,FB8W,CROZET
  237. DATA "FT8,FB8X",KERGUELEN IS.,FB8Z,AMSTERDAM & ST. PAUL IS.,FC,CORSICA,FG,GUADELOUPE,"FS,FG",SAINT MARTIN,FH,MAYOTTE,FK,NEW CALEDONIA
  238. DATA FM,MARTINIQUE,FO,CLIPPERTON IS.,FO,FRENCH POLYNESIA,FP,ST. PIERRE & MIQUELON IS.,FR,GLORIOSO IS.,FR,JUAN DE NOVA IS.,FR,REUNION IS.
  239. DATA FR,TROMELIN IS.,FW,WALLIS & FORTUNA IS.,FY,FRENCH GUIANA,G,ENGLAND,"GD,GT",ISLE OF MAN,GI,NORTHERN IRELAND,"GJ,GC",JERSEY IS.
  240. DATA GM,SCOTLAND,"GU,GC",GURNSEY IS.,GW,WALES,"H4,VR4",SOLOMON IS.,"HA,HG",HUNGARY,HB,SWITZERLAND,HB0,LICHENSTEIN,HC,ECUADOR
  241. DATA "HC8,HD8",GALAPAGOS IS.,HH,HAITI,HI,DOMINICAN REPUBLIC,HK,COLOMBIA,HK0,MALPELO,HK0,SAN ANDRES IS.,"HL,HM",KOREA,"HP,H31",PANAMA
  242. DATA HR,HONDURAS,HS,THAILAND,HV,VATICAN,"HZ,7Z",SAUDI ARABIA,"I,IT",ITALY,IS,SARDINIA,"J2,FL8",DJIBOUTI,"J3,VP2G",GRANADA
  243. DATA "J5,CR3",GUINEA-BISSAU,"J6,VP2L",ST. LUCIA,"J7,VP2D",DOMINICA,"J88,VP2S",ST. VINCENT & DEPENDENCIES,JA-JO,JAPAN
  244. DATA "JD,KA1",MINAMI TORISHIMA,"JD,KA1",OGASAWARA,JT,MONGOLIA,JW,SVALBARD,JX,JAN MAYEN IS.,JY,JORDAN,"W,K,N,A",UNITED STATES
  245. DATA KH1,"BAKER, HOWLAND & PHOENIX IS.","KC4,KP1",NAVASSA IS.,KC6,E. CAROLINES (Micronesia),KC6,W. CAROLINES (Rep of Belau)
  246. DATA KG4,GUANTANAMO BAY,"KH2,KG6",GUAM,"KH0,KG6",MARIANA IS.,KH6,HAWAII,KH7,KURE IS.,"KH3,KJ",JOHNSTON IS.,KL7,ALASKA,"KH4,KM",MIDWAY IS.
  247. DATA KP4,PUERTO RICO,"KP2,4,5",DESECHEO IS.,"KH5K,KP6",KINGMAN REEF,"KH5,KP6",PALMYRA & JARVIS IS.,"KH8,KS6",AMERICAN SAMOA
  248. DATA "KP2,KV",VIRGIN IS.,"KH9,KW",WAKE IS.,KX,MARSHALL IS.,LA-LJ,NORWAY,LU,ARGENTINA,LX,LUXEMBOURG,LZ,BULGARIA,OA,PERU,OD,LEBANON
  249. DATA OE,AUSTRIA,OH,FINLAND,OH0,ALAND IS.,OJ0,MARKET REEF,OK,CZECHOSLOVAKIA,ON,BELGIUM,"OX,XP",GREENLAND,OY,FAROE IS.,OZ,DENMARK
  250. DATA P2,PAPUA NEW GUINEA,PA-PI,NETHERLANDS,"PJ,P41,2",NETHERLANDS ANTILLES,"PJ,P47","ST. MAARTEN,SABA, etc.",PY,BRAZIL
  251. DATA PY0,FERNANDO NORONHA,PY0,ST. PETER & PAUL ROCKS,PY0,TRINIDADE & MARTIN VAZ IS.,PZ,SURINAM,S2,BANGLADESH
  252. DATA S7,SEYCHELLES IS.,S9,SAO TOME PRINCIPE,SK-SM,SWEDEN,SP,POLAND,"ST,6T1",SUDAN,ST0,SOUTHERN SUDAN
  253. DATA SU,EGYPT,SV,GREECE,SV,CRETE,SV5,DODECANESE IS.,SV,MOUNT ATHOS,"T2,VR8",TUVALU,"T31,VR1",CENTRAL KIRIBATI
  254. DATA "T30,VR1",WEST KIRIBATI,"T32,VR3",EAST KIRIBATI,TA,TURKEY,TF,ICELAND,TG,GUATEMALA,TI,COSTA RICA,TI9,COCOS IS.,TJ,CAMAROON
  255. DATA TL,CENTRAL AFRICAN REPUBLIC,TN,CONGO,TR,GABONESE REPUBLIC,TT,CHAD,TU,IVORY COAST,TY,BENIN,TZ,MALI,"UA,UK,UW,UV",EUROPEAN R.S.F.S.R.
  256. DATA "UA1,UK1",FRANZ JOSEF LAND,"UA2,UK2F",KALININGRADSK,"UA,UK,UV,UW9-0",ASIATIC R.S.F.S.R.,"UB,UK,UT,UY5",UKRAINE,"UC,UK2A",WHITE R.S.S.R
  257. DATA "UD6,UK6C,/D/K",AZERBAIJAN,"UF6,UK6F",GEORGIA,"UG6,UK6G",ARMENIA,"UH8,UK8H",TURKOMAN,"UI8,UK8",UZBEK,"UJ8,UK8J,R",TADZHIK
  258. DATA "UL7,UK7",KAZAKH,"UM8,UK8M/N",KIRGHIZ,"UO5,UK5O",MOLDAVIA,"UP2,UK2B/P",LITHUANIA,"UQ2,UK2G/Q",LATVIA,"UR2,UK2R/T",ESTONIA,"VE,VO,VY",CANADA
  259. DATA CY0SAB,SABLE IS.,CY9SPI,ST. PAUL IS.,VK,AUSTRALIA,VK,LORD HOWE IS.,VK9,WILLIS IS.,VK9X,CHRISTMAS IS.,VK9Y,COCOS-KEELING IS.
  260. DATA VK9,MELLISH REEF,VK9N,NORFOLK IS.,VK0,HEARD IS.,VK0,MACQUARIE IS.,"V3A,VP1",BELISE,"V2A,VP2A","ANTIGUA, BARBUDA IS.",VP2E,ANGUILLA
  261. DATA "V4,VP2K","ST. KITTS, NEVIS IS.",VP2M,MONTSERRAT,VP2V,BRITISH VIRGIN IS.,VP5,"TURKS & CAICOS IS.",VP8,FALKLAND IS.,"VP8,LU-Z",SOUTH GEORGIA IS.
  262. DATA "VP8,LU-Z",SOUTH ORKNEY IS.,"VP8,LU-Z",SOUTH SANDWICH IS.,"VP8,LU-Z",SOUTH SHETLAND IS.,VP9,BERMUDA IS.,VQ9,CHAGOS IS.,VR6,PITCAIRN IS.
  263. DATA "V85,VS5",BRUNEI,VS6,HONGKONG,VU,INDIA,VU7,ANDAMAN & NICOBAR IS.,VU7,LACCADIVE IS.,XE,MEXICO,XF4,REVILLA GIGEDO IS.,XT,"BURKINO FASO, Rep. of"
  264. DATA XU,KHMER REPUBLIC,XV,VIETNAM,XW,LAO PEOPLE'S DEM. REP.,XZ,BURMA,Y1-0,GERMAN DEMOCRATIC REP.,YA,AFGHANISTAN,YB-C,INDONESIA
  265. DATA YI,IRAQ,YJ,NEW HEBRIDES (Vanatu),YK,SYRIA,"YN,HT",NICARAGUA,YO,ROMANIA,YS,SALVADOR,"YU,YT,YZ",YUGOSLAVIA,YV,VENEZUELA
  266. DATA YV0,AVES IS.,ZA,ALBANIA,ZB,GIBRALTAR,ZC4,CYPRUS (Sov. Base Area),ZD7,ST. HELENA IS.,ZD8,ASCENSION IS.,ZD9,TRISTAN DE CUNHA IS.
  267. DATA "Z2,ZE",ZIMBABWE,ZF,CAYMAN IS.,ZK1,SOUTH COOK IS.,ZK3,NORTH COOK IS.,ZK2,NIUE,ZL,NEW ZELAND,ZL9,AUCKLAND & CAMPBELL IS.
  268. DATA ZL7,CHATHAM IS.,ZL8,KERMANDEC IS.,"ZM7,ZK3",TOKELAUS IS.,ZP,PARAGUAY,"ZS1-6,S88",SOUTH AFRICA & TRANSKEI,ZS2,PRINCE EDWARD IS.
  269. DATA ZS3,NAMIBIA,1A,S.M.O. KNIGHTS OF MALTA,1S,SPRATLEY IS.,3A,MONACO,"3B6,7",AGELEGA & ST. BRANDON IS.,3B8,MAURITIUS IS.,3B9,RODRIGUEZ IS.
  270. DATA 3C,EQUATORIAL GUINEA,3C0,ANNOBON IS.,3D2,FIJI IS.,3D6,SWAZILAND,3V,TUNISIA,3X,"GUINEA, Republic of",3Y,BOUVET,4S,SRI LANKA
  271. DATA 4U1ITU,I.T.U. GENEVA,4U1UN,UNITED NATIONS HQ.,4W,YEMEN,"4X,4Z",ISRAEL,5A,LIBYA,"5B,ZC",CYPRUS,5H,TANZANIA,5N,NIGERIA
  272. DATA 5R,MALAGASY REPUBLIC,5T,MAURITANIA,5U,NIGER,5V,TOGO,5W,WESTERN SAMOA,5X,UGANDA,5Z,KENYA,"T5,6O",SOMALIA,6W,SENEGAL,6Y,JAMAICA
  273. DATA 7O,"YEMEN, People's Rep.",7P,LESOTHO,7Q,MALAWI,7X,ALGERIA,8P,BARBADOS,"8Q,VS9",MALDIVE IS.,8R,GUYANA,"T7,9A,M1",SAN MARINO,9G,GHANA
  274. DATA 9H,MALTA,9J,ZAMBIA,9K,KUWAIT,9L,SIERRA LEONE,9M2,WEST MALAYSIA,"9M6,8",EAST MALAYSIA,9N,NEPAL,9Q,ZAIRE,9U,BURUNDI,9V,SINGAPORE
  275. DATA 9X,RWANDA,9Y,TRINIDAD & TOBAGO," ","ABU AIL, JABAL AT TAIR"
  276. DATA END,END
  277.          
  278.  
  279.